perm filename ROTPER[ROT,WD] blob sn#421012 filedate 1979-02-24 generic text, type T, neo UTF8
00100	(DE TWOROTPERS NIL
00200	 (PROG (X Y)
00300	       (SETQ X 1.)
00400	       (SETQ Y 1.)
00500	       (WHILE
00600		(LESSP X 14.)
00700		(WHILE
00800		 (LESSP Y 14.)
00900		 (PRINT X)
01000		 (PRINC *SP)
01100		 (PRINC Y)
01200		 (PRINC *SP)
01300		 (PRINC	(ROTORSTEP NIL
01400				   (LIST (EVAL (READLIST (CONS (QUOTE B)
01500							       (EXPLODE X))))
01600					 (EVAL (READLIST (CONS (QUOTE A)
01700							       (EXPLODE Y)))))
01800				   (QUOTE (0. 0.))))
01900		 (SETQ Y (ADD1 Y)))
02000		(SETQ Y 1.)
02100		(SETQ X (ADD1 X)))))
02200